[HTTqp]

Сообщение от NumLock

также как и на VCL

Вообщем поискав нашел вот такой код:

function ReadFirstLine(filename : String) : Boolean;
var
dFile, p : Integer;
buff : Pointer;
read : Cardinal;
buf : array[0..1023] of Char; //Объявляем буфер, в который будем производить чтение
str : String;
begin
Result := false;
dFile := CreateFile(PChar(filename), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);

if (dFile <> INVALID_HANDLE_VALUE) then begin
Str := "";
repeat
ReadFile(dFile, Buf, SizeOf(buf), read, nil);
Str := Str + Copy(buf, 1, read);
p := Pos(#13#10, Str);
until (p > 0) or (SizeOf(buf) <> read); //Если дошли до конца файла или найден признак конца строки, выходим

ShowMessage(Format("The first line of the file "%s" is the following: "#13#10#13#10"%s", [filename, Str]));
Result := true;
end;

CloseHandle(dFile);
end;

Текстовый файл выглядит вот так:

# update link:
#
# Url1 = "http://**********.ru"

# send link:
# Url1 = "http://**********.ru"

Мне нужно скопировать адрес указанный url1 иногда url2, без ковычек, причем количество пробелов не известно. Может один, а может 2.