var
Descriptions, URLS: TFileStream;
Response1, Response2 :String;

begin
Response1 := Inputbox('Description', 'Please input a small description','' );
Response2 := Inputbox('URL', 'Please input the FULL URL here', '');

{If one of the two Inputboxes was not filled in, or cancelled, then exit Procedure}
If (Response1 = '') Or (Response2 = '') Then
begin
ShowMessage('This data was not processed because you did not fill in every field',);
exit {exits the procedure, so nothing else happens}
end
Else
begin
{Open file, write the correct Response to the Correct File. Close File}
URLS := TFileStream.Create(GetCurrentDir + '\urls.txt', fmOpenWrite + fmShareDenyNone);
cboDescription.Items.Append(Response2);
URLS.WriteBuffer(Response2, length(Response2));
Descriptions := TFileStream.Create(GetCurrentDir + '\Descriptions.txt', fmOpenWrite + fmShareDenyNone);
Descriptions.WriteBuffer(Response1, length(Response1));
end
end;

URLS := TFileStream.Create(GetCurrentDir + '\URLS.txt', fmShareDenyNone);
cboDescription.Items.Append(Response2);
Write(Response2);
Close;